home *** CD-ROM | disk | FTP | other *** search
/ Backpacker 2 (Sweden) / BackPacker 2 (Sweden) (Disc 1).7z / BackPacker 2 (Sweden) (Disc 1).bin / pc / instdata / instin04 / 00015.ls < prev    next >
Encoding:
Text File  |  1997-01-01  |  631 b   |  25 lines
  1. on exitFrame
  2.   global gPaperLeft, gTotalPaper, gHost
  3.   if gHost = 1 then
  4.     puppetSprite(39, 0)
  5.     skrivHost()
  6.     set gTotalPaper to gPaperLeft
  7.     set the text of field "papper_kvar" to "Remaining length: " & gPaperLeft & " m."
  8.     startTimer()
  9.   else
  10.     if readOpponents() <> 3 then
  11.       puppetSprite(39, 1)
  12.       if the member of sprite 39 = member "red" then
  13.         set the member of sprite 39 to member "redglow"
  14.       else
  15.         set the member of sprite 39 to member "red"
  16.       end if
  17.       go(the frame)
  18.     else
  19.       updateStage()
  20.       set gTotalPaper to gPaperLeft
  21.       go("firstWait")
  22.     end if
  23.   end if
  24. end
  25.